﻿Imports ccapps.persistent.CustomerFinancialDetails
Public Class Financial_Overview

    Inherits System.Web.UI.Page


    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        FinancialDetails.Visible = False
        If Session("user") = "" Or Session("user") Is Nothing Then
            ' Response.Redirect("../../login.aspx")
            Session("message") = "!!Session Timeout!!,Tekrar Giriş Yapmalısınız"
            Response.Clear()
            Response.Status = "302 Object Moved"
            Response.RedirectLocation = "CX_Exception.aspx"
            Response.End()
        End If
    End Sub



    Protected Sub btnMSISDN_Click(sender As Object, e As EventArgs) Handles btnMSISDN.Click
        Try
            TB_Custcode.Text = ""
            ErrorMes.Text = ""
            TB_COID.Text = ""
            LblCustomer.Text = ""
            LblCurBalance.Text = ""
            LblTotal1.Text = ""
            LblPrevBalance2.Text = ""
            LblLastBillOn.Text = ""
            LblUnBill.Text = ""
            FinancialDetails.Visible = False
            Table3.Visible = False
            Table4.Visible = False
            son.Visible = False

            Dim num As Integer
            If Not TB_MSISDN.Text.Length = 10 Then
                Me.Page.RegisterStartupScript("javascript", "<script language=""javascript"">alert('MSISDN Alanı 10 Karakter İçermelidir.');</script>")
            Else
                If TB_MSISDN.Text = "" Then
                    Me.Page.RegisterStartupScript("javascript", "<script language=""javascript"">alert('MSISDN Alanın Girilmesi Zorunludur.');</script>")
                Else
                    Dim dt As DataTable = ccapps.persistent.FinancialTransaction.getcustomerInfoFromMSISDN(TB_MSISDN.Text)
                    If dt.Rows.Count > 0 Then
                        Table2.Visible = True
                        LblCustomer.Text = dt.Rows(0)("NAME").ToString() + "   " + dt.Rows(0)("LASTNAME").ToString() + "   " + dt.Rows(0)("CITY").ToString()
                        LblCurBalance.Text = dt.Rows(0)("CURBALANCE").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                        LblUnBill.Text = dt.Rows(0)("UNBILL").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                        LblTotal1.Text = dt.Rows(0)("TOTAL").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                        LblLastBillOn.Text = String.Format("{0:d}", Convert.ToDateTime(dt.Rows(0)("LAST_BILLED_DATE")))
                        LblPrevBalance2.Text = dt.Rows(0)("PREVBALANCE").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                        'LblMoneyid.Text = dt.Rows(0)("CURID").ToString() 
                        LblMny.Text = dt.Rows(0)("MONEY").ToString()
                        LblCsid.Text = dt.Rows(0)("CSID").ToString()
                        Dim now As DateTime = DateTime.Now
                        TB_valid_from.Text = "12/12/" + (now.Year() - 1).ToString()
                        Dim gun As String = ""
                        Dim gun2 As String = ""

                        If now.Month().ToString().Length = 1 Then
                            gun = "0" + now.Month().ToString()
                        Else
                            gun = now.Month().ToString()
                        End If

                        If now.Day().ToString().Length = 1 Then
                            gun2 = "0" + now.Day().ToString()
                        Else
                            gun2 = now.Day().ToString()
                        End If

                        'txtDate2.Text = gun2 + "/" + gun + "/" + now.Year().ToString()

                        TB_valid_until.Text = gun2 + "/" + gun + "/" + now.Year().ToString()

                        Dim dt2 As DataTable = DisplayBillingAccountid(Convert.ToInt32(LblCsid.Text))

                        If dt2.Rows.Count > 0 Then
                            For Each dr As DataRow In dt2.Rows

                                DropDownList1.Items.Add(New ListItem(dr("des").ToString(), dr("id").ToString()))

                            Next


                        End If

                    Else
                        ErrorMes.Text = "Girmiş Olduğunuz MSISDN'e Ait Veri Bulunamamıştır"





                    End If
                End If

            End If



        Catch ex As Exception
            ErrorMes.Text = "İşlem gerçekleşmemiştir lütfen tekrar deneyiniz."

            'Response.Write(ex.ToString())
        End Try





    End Sub


    Protected Sub btnCustCode_Click(sender As Object, e As EventArgs) Handles btnCustCode.Click

        Try

            TB_MSISDN.Text = ""
            ErrorMes.Text = ""
            TB_COID.Text = ""
            LblCustomer.Text = ""
            LblCurBalance.Text = ""
            LblTotal1.Text = ""
            LblPrevBalance2.Text = ""
            LblLastBillOn.Text = ""
            LblUnBill.Text = ""

            FinancialDetails.Visible = False
            Table3.Visible = False
            Table4.Visible = False
            son.Visible = False

            If TB_Custcode.Text = "" Then
                Me.Page.RegisterStartupScript("javascript", "<script language=""javascript"">alert('CustCode Alanın Girilmesi Zorunludur.');</script>")
            Else
                Dim dt As DataTable = ccapps.persistent.FinancialTransaction.getcustomerInfoFromCustcode(TB_Custcode.Text)
                If dt.Rows.Count > 0 Then
                    Table2.Visible = True
                    LblCustomer.Text = dt.Rows(0)("NAME").ToString() + "   " + dt.Rows(0)("LASTNAME").ToString() + "   " + dt.Rows(0)("CITY").ToString()
                    LblCurBalance.Text = dt.Rows(0)("CURBALANCE").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                    LblUnBill.Text = dt.Rows(0)("UNBILL").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                    LblTotal1.Text = dt.Rows(0)("TOTAL").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                    LblLastBillOn.Text = String.Format("{0:d}", Convert.ToDateTime(dt.Rows(0)("LAST_BILLED_DATE")))
                    LblPrevBalance2.Text = dt.Rows(0)("PREVBALANCE").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                    LblCsid.Text = dt.Rows(0)("CSID").ToString()
                    LblMoneyid.Text = dt.Rows(0)("CURID").ToString()
                    LblMny.Text = dt.Rows(0)("MONEY").ToString()
                    Dim now As DateTime = DateTime.Now
                    TB_valid_from.Text = "12/12/" + (now.Year() - 1).ToString()
                    Dim gun As String = ""
                    Dim gun2 As String = ""

                    If now.Month().ToString().Length = 1 Then
                        gun = "0" + now.Month().ToString()
                    Else
                        gun = now.Month().ToString()
                    End If

                    If now.Day().ToString().Length = 1 Then
                        gun2 = "0" + now.Day().ToString()
                    Else
                        gun2 = now.Day().ToString()
                    End If

                    'txtDate2.Text = gun2 + "/" + gun + "/" + now.Year().ToString()

                    TB_valid_until.Text = gun2 + "/" + gun + "/" + now.Year().ToString()

                    Dim dt2 As DataTable = DisplayBillingAccountid(Convert.ToInt32(LblCsid.Text))

                    If dt2.Rows.Count > 0 Then
                        For Each dr As DataRow In dt2.Rows

                            DropDownList1.Items.Add(New ListItem(dr("des").ToString(), dr("id").ToString()))

                        Next


                    End If

                Else
                    ErrorMes.Text = "Girmiş Olduğunuz CUSTCODE'a Ait Veri Bulunamamıştır"

                End If


            End If


        Catch ex As Exception
            ErrorMes.Text = "İşlem gerçekleşmemiştir lütfen tekrar deneyiniz."
        End Try

    End Sub
    Private Sub TarihGetir()
        Dim now As DateTime = DateTime.Now
        TB_valid_from.Text = "12/12/" + (now.Year() - 1).ToString()
        Dim gun As String = ""
        If now.Month().ToString().Length = 1 Then
            gun = "0" + now.Month().ToString()
        End If

        TB_valid_until.Text = now.Day().ToString() + "/" + gun + "/" + now.Year().ToString()
    End Sub


    Protected Sub btnCOID_Click(sender As Object, e As EventArgs) Handles btnCOID.Click
        Try
            TB_MSISDN.Text = ""
            ErrorMes.Text = ""
            TB_Custcode.Text = ""
            LblCustomer.Text = ""
            LblCurBalance.Text = ""
            LblTotal1.Text = ""
            LblPrevBalance2.Text = ""
            LblLastBillOn.Text = ""
            LblUnBill.Text = ""

            FinancialDetails.Visible = False
            Table3.Visible = False
            Table4.Visible = False
            son.Visible = False
            'Dim d As Integer = Convert.ToInt32(TB_COID.Text)
            If TB_COID.Text = "" Then
                Me.Page.RegisterStartupScript("javascript", "<script language=""javascript"">alert('COID Alanın Girilmesi Zorunludur.');</script>")
            Else
                Dim dt As DataTable = ccapps.persistent.FinancialTransaction.getcustomerInfoFromCOID(TB_COID.Text)
                If dt.Rows.Count > 0 Then
                    Table2.Visible = True
                    LblCustomer.Text = dt.Rows(0)("NAME").ToString() + "   " + dt.Rows(0)("LASTNAME").ToString() + "   " + dt.Rows(0)("CITY").ToString()
                    LblCurBalance.Text = dt.Rows(0)("CURBALANCE").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                    LblUnBill.Text = dt.Rows(0)("UNBILL").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                    LblTotal1.Text = dt.Rows(0)("TOTAL").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                    LblLastBillOn.Text = String.Format("{0:d}", Convert.ToDateTime(dt.Rows(0)("LAST_BILLED_DATE")))
                    LblPrevBalance2.Text = dt.Rows(0)("PREVBALANCE").ToString() + " " + dt.Rows(0)("MONEY").ToString()
                    LblCsid.Text = dt.Rows(0)("CSID").ToString()
                    LblMoneyid.Text = dt.Rows(0)("CURID").ToString()
                    LblMny.Text = dt.Rows(0)("MONEY").ToString()
                    Dim now As DateTime = DateTime.Now
                    TB_valid_from.Text = "12/12/" + (now.Year() - 1).ToString()
                    Dim gun As String = ""
                    Dim gun2 As String = ""

                    If now.Month().ToString().Length = 1 Then
                        gun = "0" + now.Month().ToString()
                    Else
                        gun = now.Month().ToString()
                    End If

                    If now.Day().ToString().Length = 1 Then
                        gun2 = "0" + now.Day().ToString()
                    Else
                        gun2 = now.Day().ToString()
                    End If

                    'txtDate2.Text = gun2 + "/" + gun + "/" + now.Year().ToString()

                    TB_valid_until.Text = gun2 + "/" + gun + "/" + now.Year().ToString()

                    Dim dt2 As DataTable = DisplayBillingAccountid(Convert.ToInt32(LblCsid.Text))

                    If dt2.Rows.Count > 0 Then
                        For Each dr As DataRow In dt2.Rows

                            DropDownList1.Items.Add(New ListItem(dr("des").ToString(), dr("id").ToString()))

                        Next


                    End If

                Else
                    ErrorMes.Text = "Girmiş Olduğunuz COID'ye Ait Veri Bulunamamıştır"

                End If


            End If

        Catch ex As Exception
            ErrorMes.Text = "İşlem gerçekleşmemiştir lütfen tekrar deneyiniz."
        End Try
    End Sub



    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim currentPageIndex = Me.DG_CustomerFinancialDoc.CurrentPageIndex
        GetDisplayCustomerFinDoc(currentPageIndex)
        ComplaintReason()
        Table3.Visible = True
        'FinancialDetails.Visible = True
    End Sub

    Private Sub ComplaintReason()
        Try
            Dim dt As DataTable = DispalyComplaintReason()

            If dt.Rows.Count > 0 Then
                For Each dr As DataRow In dt.Rows
                    DDL_CompReason.Items.Add(New ListItem(dr("DESCRIPTION").ToString(), dr("REASON_ID").ToString()))

                Next


            End If
        Catch ex As Exception
            lblcode.Text = ex.ToString()

        End Try

    End Sub

    Private Sub GetDisplayCustomerFinDoc(ByVal currentPageIndex As Integer)
        'Dim valid_from As String = TB_valid_from.Text
        'Dim valid_until As String = TB_valid_until.Text
        Dim bilgiler() As String = TB_valid_from.Text.Split("/")
        Label26.Text = ""
        For Each satir As String In bilgiler
            Label26.Text += satir
        Next



        Dim bilgiler2() As String = TB_valid_until.Text.Split("/")
        Label27.Text = ""
        For Each satir2 As String In bilgiler2
            Label27.Text += satir2
        Next
        Dim valid_from As String = Label26.Text
        Dim valid_until As String = Label27.Text

        Dim customer_id As Integer = Convert.ToInt32(LblCsid.Text)
        Dim doc_num As Integer
        If RadioButtonList1.SelectedIndex = 0 Then
            doc_num = 2
        ElseIf RadioButtonList1.SelectedIndex = 1 Then
            doc_num = 1
        ElseIf RadioButtonList1.SelectedIndex = 2 Then
            doc_num = 3

        Else

        End If

        Dim valid_from_status As Integer = 2
        If valid_from = "" Then
            valid_from_status = 1
        End If
        lblcode.Text = doc_num
        Dim dt As DataTable = FinancialDocCustInfo(customer_id, valid_from, valid_until, doc_num, Convert.ToInt32(DropDownList1.SelectedItem.Value), valid_from_status)
        Me.DG_CustomerFinancialDoc.CurrentPageIndex = currentPageIndex
        Me.DG_CustomerFinancialDoc.AllowPaging = True
        DG_CustomerFinancialDoc.DataSource = dt
        DG_CustomerFinancialDoc.DataBind()



    End Sub
    Private Sub textkontrol(ByVal txt As String)
        Try
            Dim d As Integer = Convert.ToInt32(txt)
        Catch ex As Exception
            Me.Page.RegisterStartupScript("javascript", "<script language=""javascript"">alert('Girdiğiniz Değer Harf İçermektedir.');</script>")
        End Try




    End Sub

    Protected Sub DG_CustomerFinancialDoc_ShowInfo(source As Object, e As DataGridCommandEventArgs) Handles DG_CustomerFinancialDoc.ItemCommand
        FinancialDetails.Visible = True

        Try

            If e.CommandName = "view" Then

                lbltype.Text = e.Item.Cells(4).Text
                lblDocRefCode.Text = e.Item.Cells(2).Text
                LblDateOfRef.Text = e.Item.Cells(3).Text
                LblDueDate.Text = e.Item.Cells(7).Text
                LblOpenAmount.Text = e.Item.Cells(6).Text
                LblorjAmount.Text = e.Item.Cells(5).Text
                lbltypeDetails.Text = e.Item.Cells(4).Text
                LblDRefCode.Text = e.Item.Cells(2).Text

                FinancialDetails.Visible = True
                Table4.Visible = True
                son.Visible = True
                fillCurrencyPrivate()
                'fillDisplayCustomerDetails, lblDocRefCode.Text)
                lblInvoiceNo.Text = LblDRefCode.Text
                lblInvAmount.Text = LblCurBalance.Text.Substring(0, LblCurBalance.Text.IndexOf(".")) + ".00 " + LblMny.Text








                DDL_CreditAmount.Items.Clear()
                Dim dt2credit As DataTable = DisplayMoney()

                If dt2credit.Rows.Count > 0 Then
                    For Each dr As DataRow In dt2credit.Rows

                        DDL_CreditAmount.Items.Add(New ListItem(dr("DESCRIPTION").ToString(), dr("ID").ToString()))

                    Next


                End If

                Dim customer_id As Integer = Convert.ToInt32((LblCsid.Text))
                Dim dtCredit As DataTable = DisplayCustomerDetails(customer_id, lblDocRefCode.Text)

                If dtCredit.Rows.Count > 0 Then
                    For Each dr As DataRow In dtCredit.Rows
                        lblExtRefCode.Text = dr("OHEXTREFNUM").ToString()
                        If dr("OHDUEDATE").ToString() <> "" Or dr("OHDUEDATE").ToString() <> Nothing Then
                            LblDueDate.Text = String.Format("{0:d}", Convert.ToDateTime(dr("OHDUEDATE").ToString()))
                        Else
                            LblDueDate.Text = ""
                        End If

                        If dr("OHPOSTGL").ToString() <> "" Or dr("OHPOSTGL").ToString() <> Nothing Then
                            LblPostingDate.Text = String.Format("{0:d}", Convert.ToDateTime(dr("OHPOSTGL").ToString()))
                        Else
                            LblPostingDate.Text = ""
                        End If


                        LblComment.Text = dr("COMPLAINT").ToString()
                        LblDateOfRef.Text = dr("OHREFDATE").ToString()
                        LblExtRefDate.Text = dr("OHEXTREFDATE").ToString()
                        LblGlAcc.Text = dr("OHGLAR").ToString()

                    Next


                End If

                Dim currentPageIndex = Me.DataGrid4.CurrentPageIndex
                GetDisplaytax(currentPageIndex)

                Dim currentPageIndex2 = Me.DataGrid3.CurrentPageIndex
                GetDisplayitems(currentPageIndex2)

                Dim dt2 As DataTable = DisplayBillingAccountid(Convert.ToInt32(LblCsid.Text))

                If dt2.Rows.Count > 0 Then
                    For Each dr As DataRow In dt2.Rows

                        DrbBillingAcoount.Items.Add(New ListItem(dr("des").ToString(), dr("id").ToString()))

                    Next


                End If
            End If

        Catch ex As Exception


            Session("message") = ex.Message
            Response.Clear()
            Response.Status = "302 Object Moved"
            Response.RedirectLocation = "CX_Exception.aspx"
            Response.End()




        End Try

    End Sub



    Protected Sub DG_CustomerFinPage(source As Object, e As DataGridPageChangedEventArgs) Handles DG_CustomerFinancialDoc.PageIndexChanged
        Me.GetDisplayCustomerFinDoc(e.NewPageIndex)
        FinancialDetails.Visible = False
        Table4.Visible = False
        son.Visible = False
    End Sub

    Protected Sub btnCompFinish_Click(sender As Object, e As EventArgs) Handles btnCompFinish.Click

        Dim dt As DataTable = SetComplaint(Convert.ToInt32(LblCsid.Text), Convert.ToInt32(DDL_CompReason.SelectedItem.Value), lblDocRefCode.Text)
        If Convert.ToInt32(dt.Rows(0)(0)) = 1 Then
            Table4.Visible = True
            Table3.Visible = True
            FinancialDetails.Visible = True

            Me.Page.RegisterStartupScript("javascript", "<script language=""javascript"">alert('İşlem Başarıyla Gerçekleşmiştir.');</script>")
        Else
            Me.Page.RegisterStartupScript("javascript", "<script language=""javascript"">alert('İşlem Gerçekleşmemiştir.');</script>")
        End If





    End Sub

    Sub fillCurrencyPrivate()
        DDL_CreditAmount.Items.Clear()

        Dim dtCredit As DataTable = DisplayMoney()

        'Response.Write(dtCredit.Rows.Count)

        If dtCredit.Rows.Count > 0 Then
            For Each dr As DataRow In dtCredit.Rows
                DDL_CreditAmount.Items.Add(New ListItem(dr(1).ToString(), dr(0).ToString()))

            Next


        End If
    End Sub



    Private Sub GetDisplaytax(ByVal currentPageIndex As Integer)

        'Dim dt As DataTable = FinancialDocCustInfo(customer_id, valid_from, valid_until, doc_num)
        'Me.DG_CustomerFinancialDoc.CurrentPageIndex = currentPageIndex
        'Me.DG_CustomerFinancialDoc.AllowPaging = True
        'DG_CustomerFinancialDoc.DataSource = dt
        'DG_CustomerFinancialDoc.DataBind()
        Dim tax As DataTable = DisplayTax(LblDRefCode.Text)
        Me.DataGrid4.CurrentPageIndex = currentPageIndex
        Me.DataGrid4.AllowPaging = True
        DataGrid4.DataSource = tax
        DataGrid4.DataBind()



    End Sub
    Private Sub GetDisplayitems(ByVal currentPageIndex As Integer)

        'Dim dt As DataTable = FinancialDocCustInfo(customer_id, valid_from, valid_until, doc_num)
        'Me.DG_CustomerFinancialDoc.CurrentPageIndex = currentPageIndex
        'Me.DG_CustomerFinancialDoc.AllowPaging = True
        'DG_CustomerFinancialDoc.DataSource = dt
        'DG_CustomerFinancialDoc.DataBind()
        Dim item As DataTable = DisplayItems(LblDRefCode.Text)
        Me.DataGrid3.CurrentPageIndex = currentPageIndex
        Me.DataGrid3.AllowPaging = True
        DataGrid3.DataSource = item
        DataGrid3.DataBind()



    End Sub

    Protected Sub DataGrid3_PageIndexChanged(source As Object, e As DataGridPageChangedEventArgs) Handles DataGrid3.PageIndexChanged
        Me.GetDisplayitems(e.NewPageIndex)
    End Sub

    Protected Sub DataGrid4_PageIndexChanged(source As Object, e As DataGridPageChangedEventArgs) Handles DataGrid4.PageIndexChanged
        Me.GetDisplaytax(e.NewPageIndex)
    End Sub

    Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        ' son.Visible = True
        'Dim currentPageIndex = Me.DataGrid4.CurrentPageIndex
        'GetDisplaytax(currentPageIndex)
        Try

            Dim commnet As String = TxtComment.Text
            LblComment.Text = commnet
            'Dim ds As Date = New Date()
            'Dim GEN As String = ds.TimeOfDay.ToString() 

            Dim amount As String = "-" + TB_Amount.Text
            Dim damount As Double = Convert.ToDouble(amount)

            'Dim currentPageIndex2 = Me.DataGrid3.CurrentPageIndex
            'GetDisplayitems(currentPageIndex2)
            'PROCEDURE SetCreditInvoice (pin_amount IN Varchar2,pin_remark IN Varchar2,pin_customer_id IN Integer,pin_currency IN Integer,p_cursor OUT r_cursor_type)
            'Dim dt As DataTable = SetCreditInvoice2() 

            Dim dt As DataTable = SetCreditInvoice(damount, TxtComment.Text, Convert.ToInt32(LblCsid.Text), Convert.ToInt32(DDL_CreditAmount.SelectedValue), Session("user").ToString())
            If Convert.ToInt32(dt.Rows(0)(0)) = 1 Then
                Table4.Visible = True
                Table3.Visible = True
                FinancialDetails.Visible = True


                Me.Page.RegisterStartupScript("javascript", "<script language=""javascript"">alert('İşlem Başarıyla Gerçekleşmiştir.');</script>")
            Else
                Me.Page.RegisterStartupScript("javascript", "<script language=""javascript"">alert('İşlem Gerçekleşmemiştir.');</script>")
            End If

        Catch ex As Exception
            ErrorMes.Text = "İşlem Gerçekleştirilememiştir. Lütfen Tekrar Deneyiniz"
        End Try

    End Sub

    Protected Sub DataGrid3_ItemDataBound(sender As Object, e As DataGridItemEventArgs) Handles DataGrid3.ItemDataBound
        If e.Item.ItemType = ListItemType.Item Or e.Item.ItemType = ListItemType.AlternatingItem Then
            Dim deneme As Label = e.Item.FindControl("Label3")
            Dim id As String = DataBinder.Eval(e.Item.DataItem, "DISAMOUNT").ToString()
            Dim id2 As String = DataBinder.Eval(e.Item.DataItem, "MONEY").ToString()
            If id = "" Then
            Else
                deneme.Text = id + " " + id2

            End If


        End If

        '  if (e.Item.ItemType == ListItemType.Item | e.Item.ItemType == ListItemType.AlternatingItem)

        '    {

        'Label mylabel = (Label)e.Item.FindControl("lblPuan");

        'Label durum = (Label)e.Item.FindControl("lblDurum");

        'int puan = Convert.ToInt32(mylabel.Text);

        '    If (puan < 50) Then

        '{

        '    durum.Text = "Kaldı";

        '    durum.ForeColor = Color.Red;



        '}

        '    Else

        '{

        '    durum.Text = "Geçti";

        '    durum.ForeColor = Color.Green;

        '}

        '    }

    End Sub


End Class